perm filename FR81.PUB[S81,JMC] blob sn#581741 filedate 1981-04-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device XGP
C00004 00003
C00005 00004	.insert contents
C00006 00005	.<< Contents >>
C00007 00006	.BEGIN "Title"
C00008 ENDMK
C⊗;
.device XGP;
.require "bask.pub[sub,sys]" source_file;
.font 5 "grfx25";
.font A "ms25"
.sides←1;
.require "twocol.pub[sub,sys]" source_file;
.macro sskip	⊂ skip to column 1⊃;	<< section skip control >>
.
.MACRO YON(LBL)  ⊂ "Section "; SUB2! LBL ⊃;
.
.MACRO SUB(IND) ⊂ INDENT 0,IND; TABS IND+1;⊃
.
.MACRO IB ⊂ turn on "%";
.AT """" ⊂ (IF THISFONT=1 THEN "%3" ELSE "%1"); ⊃
.AT "<" ⊂ "%2" ⊃;  AT ">" ⊂ "%1" ⊃;
. ⊃

.MACRO BIB  ⊂
.   BEGIN INDENT 0,3; NOJUST; IB;
.   AT "AIM-" ⊂ "Stanford AI Memo AαIαMα-" ⊃;
.   COUNT exref TO 200
.   AT "⊗" ⊂ IF LINES<3 THEN NEXT COLUMN; NEXT EXREF; ("["&EXREF&"]  ") ⊃
.   ⊃;
.at "//pers";	⊂ once fill nojust; indent 0,5; ib; turn on "#";
.  at "sra"	⊂ "%2Student Research Assistants:%1"	⊃
.  ("%3Personnel: %1");
.  ⊃;
.
.recursive MACRO GET(FILE) ⊂ BEGIN "FILE"
.REQUIRE "FILE" SOURCE;
.END "FILE"
. ⊃

.SECNAME←"";
.count page from 1 to 999
.fill
.insert contents;
.portion some; place text;
.next page; next page;
.fill
.get "fr81"

.<< Contents >>
.COUNT PAGE
.secname←ssname←null;
.PORTION CONTENTS
.begin "contents"
.  FILL NOJUST CRBREAK TURN ON "%∂←→"
.  turn on "∪" for "#";
.
.  AT "∩∩" LMIN ":" ⊂ IF LINES<LMIN THEN BEGIN
.	skip 200; SELECT 3
∂5Section→Page
.	SKIP;
.	END
.	⊃;

.cb Table of Contents
.  INDENT 0,10,3; PREFACE 0; SELECT 3
∂5Section→Page

.  SELECT 1;
.  RECEIVE
.end "contents";

.BEGIN "Title"
.pagehigh←54
.pagewide←80
.PAGE FRAME pagehigh HIGH pagewide WIDE;
.evenleftborder ← oddleftborder ← 1000;
.area title lines 16 to pagehigh;
.place title;
.page←0;
.SECNAME←"";
.sname ← SSNAME ← NULL
.PORTION TITLEPAGE
.center
.SKIP 2
Proposed 
.SKIP 2
.Select 3
Basic Research 
.SKIP 2
.Select 1
in
.SKIP 2
.Select 3
Artifical Intelligence
.SKIP 2
.Select 1
and
.SKIP 2
.Select 3
Formal Reasoning
.Select 1
.SKIP 4
Principal Investigator 
.skip
John McCarthy
.skip 2
.TURN OFF 
.END "Title"
.